{r file=‘meme2.R’, eval=FALSE}
library(magick)
#scratch "image 1"
image_1 <- image_read("https://i.kym-cdn.com/photos/images/newsfeed/001/232/375/3fb.jpg") %>%
image_scale(520)
text_box_1 <- image_blank(width = 200,
height = 300,
color = "#FFFFFF") %>%
image_annotate(text = "Scratch",
color = "#000000",
size = 40,
font = "Impact",
gravity = "center")
vector_1 <- c(text_box_1, image_1)
#python "image 2"
image_2 <- image_read("https://pyxis.nymag.com/v1/imgs/42d/c5a/53aaae864601cd024b2dd1fddaa6a0839a-15-exploding-brain-meme.2x.rhorizontal.w700.jpg") %>%
image_scale(542)
text_box_2 <- image_blank(width = 200,
height = 300,
color = "#FFFFFF") %>%
image_annotate(text = "Python",
color = "#000000",
size = 40,
font = "Impact",
gravity = "center")
vector_2 <- c(text_box_2, image_2)
#R "image 3"
image_3 <- image_read("https://mat3e.github.io/brains/img/3.jpg") %>%
image_scale(587)
text_box_3 <- image_blank(width = 200,
height = 300,
color = "#FFFFFF") %>%
image_annotate(text = "R",
color = "#000000",
size = 40,
font = "Impact",
gravity = "center")
vector_3 <- c(text_box_3, image_3)
image_append (c(vector_1, vector_2, vector_3))%>%
image_append (stack = FALSE)
image_4 <- image_append(c(vector_1, vector_2, vector_3), stack = FALSE)
image_write(image_4, "image_4.jpg")
{r file=‘animation.R’, eval=FALSE}
library(magick)
# Spiderman images
img1 <- image_read("https://assets.reedpopcdn.com/spiderman_MDzjc1o.png/BROK/thumbnail/1200x900/quality/100/spiderman_MDzjc1o.png")
img2 <- image_read("https://www.pc-magazin.de/bilder/118540204/landscapex1200-c0/spider-man-test-ps4-2.jpg")
img3 <- image_read("https://cdn.kayiprihtim.com/wp-content/uploads/2021/12/Spider-Man-No-Way-Home-sure-758x403.jpg")
img4 <- image_read("https://images.immediate.co.uk/production/volatile/sites/3/2022/07/Spider-Man-PC-release-date-requirements-8ba6043.jpg?quality=90&resize=980,654")
# Resize
img1 <- img1 %>% image_scale("650x650")
img2 <- img2 %>% image_scale("650x650")
img3 <- img3 %>% image_scale("650x650")
img4 <- img4 %>% image_scale("650x650")
# Create list
img_list <- list(img1, img2, img3, img4)
# Create the gif
gif <- image_animate(image_join(img_list))
# Reveal gif
image_animate(gif, fps = 1)
# Write gif file .gif
image_write(gif, "my_animation.gif")